home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib08.dsk
/
PROTECT PROGRAMS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
846b
|
20 lines
1 REM ***************************
2 REM * PROTECT PROGRAMS *
3 REM * BY KEITH STATTENFIELD *
4 REM * COPYRIGHT (C) 1982 *
5 REM * BY MICRO-SPARC INC *
6 REM * LINCOLN, MA. 01773 *
7 REM ***************************
100 ONERR GOTO 210
110 TEXT : HOME : POKE 48,170
120 HLIN 0,39 AT 0: HLIN 0,39 AT 46: VLIN 0,46 AT 0: VLIN 0,46 AT 39
130 POKE 32,2: POKE 33,36: POKE 34,2: POKE 35,22: HOME
140 A$ = "PROGRAM PROTECTOR": GOSUB 220
150 PRINT :A$ = "BY KEITH STATTENFIELD": GOSUB 220
160 S = 2496:E = 5120
170 VTAB 12: PRINT "PLEASE ENTER A NUMBER BETWEEN ";S: PRINT "AND ";E;: INPUT ": ";A$:N = VAL(A$)
180 IF N <S OR N >E THEN 170
190 POKE 103,N - INT(N/256) *256: POKE 104,N/256: POKE N -1,0
200 PRINT CHR$(4);"RUN PROGRAM PROTECTOR"
210 END
220 HTAB PEEK(33)/2 - LEN(A$)/2: PRINT A$: RETURN